10 INPUT"[147]STARTING ADDRESS";SA$:SA=VAL(SA$)
20 IFSA<820OR(SA>900ANDSA<2048)OR(SA>32643ANDSA<49152)ORSA>53122THEN10
30 FORI=SATOSA+121:READA:POKEI,A:N=N+A:NEXT
40 IFN<>16667THENPRINT"[147]ERROR IN DATA":STOP
50 A=INT((SA+11)/256):B=SA+11-A*256:C=INT((SA+46)/256):D=SA+46-C*256
60 POKESA+1,B:POKESA+6,A:POKESA+34,D:POKESA+39,C
70 PRINT"SYS"SA"TO USE":NEW
80 DATA169,11,141,34,3,169,192,141,35,3,96,165
90 DATA123,201,2,240,26,165,122,133,251,165,57,133
100 DATA181,165,58,133,182,169,0,133,183,169,46,141
110 DATA6,3,169,192,141,7,3,76,51,243,133,252
120 DATA165,183,208,18,230,183,169,145,32,210,255,165
130 DATA181,133,20,165,182,133,21,76,167,166,165,183
140 DATA201,1,208,9,230,183,56,165,251,229,95,133
150 DATA253,132,254,196,253,240,13,200,200,177,95,240
160 DATA9,164,254,165,252,76,26,167,198,254,169,95
170 DATA133,252,169,26,141,6,3,169,167,141,7,3,208,231